home *** CD-ROM | disk | FTP | other *** search
/ CinE CD 6 / CinE CD ROM 06.iso / mac / Shared.Cst / 00104_Script_scroll < prev    next >
Text File  |  1996-06-22  |  503b  |  22 lines
  1. global windowy, ymin, ymax, save_pos
  2.  
  3. on scroll deltay
  4.   set v = the top of sprite 1
  5.   
  6.   if (deltay  > 0) then -- scroll up
  7.     if (v + deltay) <= ymax then
  8.       set the locV of sprite 1 = v + deltay
  9.     else
  10.       set the locV of sprite 1 = ymax
  11.     end if
  12.   else -- scroll down
  13.     if (v + deltay) >= ymin then
  14.       set the locV of sprite 1 = v + deltay
  15.     else
  16.       set the locV of sprite 1 = ymin
  17.     end if
  18.   end if
  19.   set save_pos = the locV of sprite 1
  20.   updatestage
  21. end
  22.